10 IFA=0THENA=1:LOAD"RULING B*",8,1
20 SYS 49152
30 POKE53280,0:POKE53281,11:POKE646,0
40 :
50 PRINT "[147]@@@@@@@@@@@@@@@@@@@@********************";
60 PRINT "********************@@@@@@@@@@@@@@@@@@@@";
70 PRINT "____________RULING BALLS DEMO___________";
80 PRINT " (W) 1993 BY FORD PREFECT/PUBLIC DOMAIN"
90 PRINT "         WRITTEN FOR DIGITAL TALK"
100 PRINT"     _@@@@@@@@@@@@@@_************_
110 [153]"     ^              \GREENHORN,  ^
120 PRINT"     ^GREETINGS TO: \BIG BOOST,  ^
130 [153]"     ^              \            ^
140 PRINT"     ^LITTLE JOHN,  \  AND ALL   ^
150 [153]"     ^CF IM CF,     \   OTHER    ^
160 PRINT"     ^MORGAN,       \ COOL GUYZ  ^
170 [153]"     ^SMILING GURU, \ OF DT&CF ! ^
180 PRINT"     ^DR. ZOOM(HI), \            ^
190 [153]"     _**************_@@@@@@@@@@@@_
200 PRINT"";
210 PRINT"     _@@@@@@@@@@@@@@@@@@@@@@@@@@@_
220 [153]"     ^  BITTE SPACE DRUECKEN,    \
230 PRINT"     ^UM DIE CHARSETS ZU SWAPPEN!\
240 [153]"     _***************************_
250 GET A$:IF A$<>" "THEN250
260 IF G=0THEN G=1:POKE53272,21:GOTO250
270 IF G=1THEN G=0:POKE53272,29:GOTO250